TK!2
=v
#1
:n

:s
b
:c
     ***  LOAN  CALCULATIONS ***
#2
:n
price
:v
100000
:s
i
:u
$
:d
$
:c
total price
#3
:n
downpay
:v
15000
:s
i
:u
$
:d
$
:c
down payment
#4
:n
loan
:s
b
:u
$
:d
$
:c
loan amount
#5
:n
points
:s
b
:u
df
:d
%
:c
loan initiation points
#6
:n
fees
:s
b
:u
$
:d
$
:c
miscellaneous fees
#7
:n
closing
:s
b
:u
$
:d
$
:c
closing cost
#8
:n
cash
:s
b
:u
$
:d
$
:c
cash payment at closing
:a
cash
#9
:n
rate
:s
b
:u
df/mo
:d
%/yr
:c
interest rate
#10
:n
rrate
:s
b
:u
df/mo
:d
%/yr
:c
real interest rate
:a
rrate
:f
.008333333333333333
#11
:n
term
:v
432
:s
i
:u
mo
:d
yr
:c
loan term
#12
:n
payment
:s
b
:u
$/mo
:d
$/mo
:c
monthly payment
:a
payment
#13
:n
bank
:v
'bank2
:s
i
:a
bank
=u
#1
:f
yr
:m
12
:t
mo
#2
:f
df/mo
:m
1200
:t
%/yr
#3
:f
df
:m
100
:t
%
=l
#1
:n
bank
:c
Domain for f-ns bankrate, bankpoints, bankfees
:v
'bank1
'bank2
'bank3
'bank4
'bank5
'bank6
E
#2
:n
rate
:d
%/yr
:u
df/mo
:c
Range for function bankrate
:v
.007416666666666667
.00625
.006458333333333333
.0075
.00675
.007916666666666667
E
#3
:n
points
:d
%
:u
df
:c
  "    "     "     bankpoints
:v
.01
.05
.03
0
.01
.015
E
#4
:n
fees
:c
  "    "     "     bankfees
:v
0
1500
500
50
500
0
E
#5
:n
payment
:d
$/mo
:u
$/mo
:v
E
#6
:n
cash
:d
$
:u
$
:v
15850
20750
18050
15050
16350
16275
E
#7
:n
rrate
:d
%/yr
:u
df/mo
:v
E
#8
:n
downpay
:d
$
:u
$
:v
15151.5151515149
9999.999999999738
12886.59793814407
15949.99999999975
14848.4848484846
14720.81218274086
E
#9
:n
loan
:d
$
:u
$
:v
84848.4848484851
90000.00000000026
87113.40206185593
84050.00000000025
85151.5151515154
85279.18781725914
E
=f
#1
:n
bankrate
:t
List
:d
bank
:m
Table
:r
rate
#2
:n
bankpoints
:t
List
:d
bank
:m
Table
:r
points
#3
:n
bankfees
:t
List
:d
bank
:m
Table
:r
fees
#1
:n
bankrate
#2
:n
bankpoints
#3
:n
bankfees
=r
#1
:r
price - downpay = loan
#2
:r
closing = points * loan + fees
#3
:r
cash = downpay + closing
#4
:r
payment = loan * (rate / (1 - (1 + rate)^(-term)))
#5
:r
payment = (loan - closing) * (rrate / (1 - (1 + rrate)^(-term)))
#6
:r
rate = bankrate(bank)
#7
:r
points = bankpoints(bank)
#8
:r
fees = bankfees(bank)
#9
:r
price - cash = loan * (1 - points) - fees   " redundant equation
#11
:r
" Notes: The redundant equation eliminates the need to guess the values of 
:s
C
#12
:r
"        loan or downpay or closing when none of them is known.  It was
:s
C
#13
:r
"        derived by taking the first three equations and eliminating from
:s
C
#14
:r
"        them the variables downpay and closing.
:s
C
#15
:r
"        If you want to experiment with rate, points or fees (i.e. assign
:s
C
#16
:r
"        them as input or let them be evaluated from other constraints)
:s
C
#17
:r
"        the rules using, respectively, the functions Bankrate, Bankpoints
:s
C
#18
:r
"        or Bankfees must be cancelled.
:s
C
=p
=t
#1
:n
mft
:s
Screen
:v
Vertical
:f
1
:r
""
:c
""
:t
""
:u
#1
:l
bank
:w
10
:h
""
#2
:l
rate
:w
10
:h
""
#3
:l
points
:w
10
:h
""
#4
:l
fees
:w
10
:h
""
#5
:l
rrate
:w
10
:h
""
#6
:l
payment
:w
10
:h
""
#7
:l
cash
:w
10
:h
""
#8
:l
downpay
:w
10
:h
""
#9
:l
loan
:w
10
:h
""
E
=n
#1
:n
deci_2
:d
15
:f
2
:^
Either Scientific or Decimal
:e
"."
:m
""
:c
Has two decimals and is right justified
:p
Zero
:j
Right
:s
- Only
:q
0
:x
0
:l
""
:t
""
:v
"0.00"
=g
#1
:c
.000001
:i
10
:v
Yes
:g
deci_2
:l
60
:f
66
:m
0
:w
80
:b
Yes
:a
Yes
:r
Yes
:h
No
:t
1
:n
Yes
:d
LPT1
%Tv,f,0,5,0,1,0
